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APL2 Character Set 
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Primitive Functions 
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Multiply" 


Divide* 
Residue’ 


Reciprocal 
Magnitude 


Maximum* 


Ceiling 


Up Stile. 
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Natural Log Logarithm* 


Circle Star. 


Factorial 


Quote Dot 


Quad Divide — Matrix Inverse Matrix Divide 
Tilde Not 


Without 
And* 


Up Caret 


*Axis Permitted 


Circle Stile 
Circle Slope 


Epsilon 
Underbar 


Delta Stile 


Up Tack Jot 


Reverse" 


Transpose 


*Axis Permitted 


itive Functions (continued) 


‘Symbol Monadic Dyadic 
Symbol Name Function. Function: 
i Down tack Decode 
T Up tack. Encode 
DAP ‘Atomic 
Function 
DAT Attributes. 
Uca Character Rep. 
00£ Delay 
Dra Execulte Ait 
nee Execute 
Controlled 
oes Event Simulate Event 
Simulate 
DEX Expunge 
Uer Fix Fix 
QNA Name Assoc Name Assoc 
orc Name Class Name Class. 
One Name List Name List 
Dsvc Sbar Var Control Shar Var 
Control 
Dsvo Shar Var Offer Shar Var 
Offer 
LEKI Shar Var Query 
OSVA Shar Var Retract 
Usvs Shar Var State 
ure Transfer 
Form 
*Axis Permitted 
System Variables 
DAI Account Information OPP Print Precision 
Dav Atomic Vector OPH Print Width. 
DCT Comparison Tolerance OPR Prompt Replacement 
DEM Event Message UAL Random Link 
QET Event Type OR — Right Argument 
UPC Format Control 'OSVE Shared Var Event 
Oro Index Origin Orc Terminal Control 
OLX Latent Expression DTS Time Stamp 
OL —Left Argument DTZ Time Zone 
ULC Line Counter 042 User Load 
[ort ieee paps nec magne idi 


Primitive Operators 


LO/R Compress 1 0 0 1 1/'PLEAT" 
LOJR PAT 


LO/LX)R Compress — 1 0 1/(1)3 2016 
LOFCX)R with Axis : B 


1 
n 
p^'TOM* "DICK" 
uw 


A + 101001 
AM 2 3 
920053 
AV ABC* 

c 


10172 30:16 


LONCXO)R. 9 
LONCKIR 3 
o 
6 


L LO.RO R Inner +230 6 


Product + 22 p 10x4 
rox 


120 150 
260 330 


(13) eix 15 
34 5 
6 810 
9 12 15 
2 


L LO/R Reduce 44/16 
L LOIR N-wise 10 14 18 


L LO/[X]K — Reduce 3+/C11% 3 p 112 
E LO/LX]R — N-wise 12 1510 
with Axis 21 2% 27 


LO/LXR. +/[133 
LOICK)R 15 18 21 


Replicate 1 2 3 w/'ABCD* 
ABBCCCDDDO 


LO/CX)R Replicate P+ 23016 


LO&CX)R with Axis 2 71 0 i1/[2]T 
103 


406 


5123855 
3 6 10 15 


LONCKIR *\[1J2 3 p 16 


LONCK)R 228. 
28 


Circle Functions 
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‘Sine R 
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Boolean Functions 
In the following example, £ and R have the following values: 


1-911 
Reo 103 


Not Greater E 1191 
Nand Ex MEKKO 


Format (by Example) Control Characters 


P 


(O-Pad zeros to this point 
1-Float decorator if negative 
2-Ploat decorator 
3-Host decorator 
4-Do not float nearest decorator 

S-Normal digit 

Right decorator ends field 

7-Use next decorator o right for scaled form 
8-Fil empty positions of field with OFCC 31 
9-Pad zeros to tis position i nonzero- 
Decimal point -Controlled comma 
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Event Type Codes 


DET values 


No error 
Unclassified event 


INTER, 
SYSTE! 


RUPT 
M ERROR 


WS FULL 

SYSTEM LIMIT-symbol table 

SYSTEM LIMIT-no shares 

SYSTEM LIMIT-interface quota 
SYSTEM LIMIT-interface capacity 
SYSTEM LIMIT-amay rank 

SYSTEM LIMIT-array size 

SYSTEM LIMIT-array depth 

SYSTEM LIMIT-prompt length 

SYSTEM LINIT-intertace representation 


No array 


31 Name with no value 


Ill-formed line 32 Function with no 
Name class result 

Invalid operation 

ICS not 0 


Explicit Argument 
Errors 

5 | VALENCE ERROR 
S 2 RANK ERROR 

5 3 LENGTZ ERROR 
S 4 DOMAIN ERROR 
S S INDEX ERROR 

S 6 AXIS ERROR 


Access Control Vector OSVC 


Set by me reguire use by my partner. 
Set by my partner require use by me. 
Use by me requires set by my partner. 


Use by my partner requires set by me. 


Access States Osvs 


Not a shared variable. 
Set by one processor and used by second 
Processor (initial state). 


Set by first processor, not yet used by 
second processor. 

Set by second processor, not yet used by 
first processor. 


Selected System Variable Values 


2+L OAT R Attributes 


L1) Valence (0. 1, or 2) 
LL2] Fix time (7 items) 


L[3] Exec. prop.(4 bits) 
LEY) Object size (CDR) 


2=2 Variable 
Unused but valid 4-3 Function 
Z=4 Operator 


Account Information 


DAIL1) User Ident. 
04112) Compute time 


Time Stamp 


04103) Connect time 
DAI[*] Keying time 


Orst1) UTS[5) Minute 
075C2) Month Ürst6) Second 
DTSC3) Day ürst7) Millisecond 
arscs) 


nrc 


Format Control 


OFC(1) Decimal Char. UFC[v Fill for overflow 
OFCL?) Thous. indicator OFCCS] Print as blank 
UFCf31 Fill for blanks DFC[6) Neg. indicator 


ore Terminal Control Characters 


DTC[1] Backspace UTCL3J Line feed 
DTC(2] New Line 


Selected System Function Arguments 


Z+L DPX R Fix (with execution properties) 


2011 No display LL3) Ignore attention 
L[2) No suspension LEY) Nonresource error is 
DOMAIN ERROR 


Z+L OTF R Transfer Form 


L=1 (migration form) L=2 (extended form) 


System Commands 


)CLEAR [size] 

)CONTINUE [HOLD] 

COPY Llibnol workspace [:[pswrd]] [names] 
)68t011]2131 

)DROP Llibnol workspace [:[pswrd]] 
)EDITOR [1,2 or name] 

)ERASE names 

)FNS [first [last 1) 

)HOST command 

DIN file [names ] 

)LIB [libno] [:[pswrd 1] [first (last) ] 
LOAD (libnol workspace [:Cpswrdl] [size] 


)MCOPY Llibno) workspace [:[pswrd]] [names] 
)MORE 


)MSGLN userid message 
MSG (OFF or ON} 
)NMS [first L last] ] 
)OFF (HOLD) 
)OPRLN) message 
)OPS [first (last 1) 
)OUT file (names 1 
)PBS LON or OFF] 


YPCOPY [libno] workspace [:[pswrd]] (names) 
)qUoTA 


)RESET [number] 
)SAVE LLlibno) workspacel : Lpswrd 133 


)SYMBOLS [number] 
)TIME 
)VARS [first Clast 1) 


)WSID [Uibno] workspace [:[pswrd11] 


Session Manager Commands 


For a list of session manager commands, press PF1. 


APL2 Editors 


In the following paragraphs, lines is optional; if provided, it can be 


any of the following: 


nl, n2, 
nl-n2 


in 


[+] 

[A lines) 

[D lines) 

[line D position ] 


Uline) text 


U 
L a expression 

C? Jor PFI 

C1 Jor PF2 

v or PF3 

LY Jor PF6 

(+ Jor PF7 

C4 Jor PF8 

Lr lor PF9 

C/string/ lines ) 
C/string/ N lines 1 
C/old/new/ " lines) 
C/old/new/ " N lines) 
Ev name lines) 

[^ name lines] 


[^ lines] 


Cal 


Specifies lines nf, n2, .... n 
Specifies lines n/ through n2 
Specifies lines © through n 
Specifies lines through the last line 


Open/close definitio 
Open/close locked 
definition 

Abandon editing 
Delete fines 

Display lines 
Display and position. 
(Editor 1 only) 
Replace or insert. 


Continue statement 
Execute expression 
Query PF keys 
Renumber lines 
Close definition 
Save definition 
Scroll up 

Scroll down 

Scroll to cursor 
Locate text 

Locate names 
Replace text 
Replace names 

Put lines into name 
Get lines from name 
Copy lines 
Comment 
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Invocation Options 


In the following, size can be in bytes, kilobytes (K), megabytes 
(M), or percentage (%) form. 


AISIZE (size) (TSO only) 
Maximum number of bytes stacked by AP 101. 
APNAMES (name) 


AP's not automatically available 
CASE (01112) 


Defines alphabets allowed in APL names. 
CODE (nmm) 

Specifies the type of terminal you are using. 
DATEFORM (ISO|USIEU) 

Specifies the format for time and date stamps. 
DEBUG (nnn) 

Alters normal recovery actions of APL2. 
DSOPEN (device) 

Specifies a value to be passed to GDDM. 
EXCLUDE (device-token ) 

AP's not to be loaded into your session. 
FREESIZE (size) 

Minimum amount of free virtual storage. 
BILIGHT (INPUT | OUTPUT |ONIOFF) 

Specifies lines to be highlighted on the screen. 
ID (nnnnnnn) 

Account number associated with the current session. 


INPUT ('siring') 
string(s) of data to be initially executed. 
(TSO only) 
Private LOADLIB for APL2 and AP's. 
PROFILE (name) 


Name of session manager profile to be loaded. 
QUIET 


No language processor output until prompted for input. 
SHRSIZE (ste) 

Amount of virtual storage reserved for the SVP. 
SMAPL (ON|OFF|TRY) 

Specifies whether the session manager is to be used. 
SVMAX (nn) 

Maximum number of concurrently shared variables. 
SYSDEBUG (nnn) 

Special debugging settings for system programmers. 
TERMCODE (nnnnn) (TSO only) 

Specifies the type of terminal you are using. 
TRACE (nnn) 

Special debugging settings for system programmers. 
WSSIZE (size) 

Storage (region) reserved for your active workspace. 


Auxiliary Processors 

AP 100—Host System Command Processor 
Shared Variables: Req.=1 

Initial Values: 

CMS100+'(CMSICP] CCL370| EBCD)]" 
TS0100«' LC 3701 EBCD1)* 


AP 100 TSO Built-in Commands 


APL AI: Accounting information 

APL ATTACH modulet parameters]: Attach subtasks 
APL CODE [code]: Query and define terminal type 
APL DEBUG (code): Query and set debug options 
APL DDI name: File information 

APL DSI name: Data set information 

APL LIB [n]: Workspace names 

APL LIBS: Library numbers 

APL QUIET: Suppress messages 

APL QUOTA: Returns information on limits 

APL USER: TSO information 

APL WSTD: Active workspace identification 

APL WSNAME ([libno] wsid]: DS name of ws 
EXEC elisiname: Invokes the CLIST 

T50 commandname: Avoids conflicts between AP 100 
built-in commands and TSO commands. 


Return Codes: 

-100 Command abended (CMS only) 
No error 

Command error. 

Command terminated by interrupt (TSO only) 
Insufficient virtual storage (TSO only) 
Insufficient shared storage (TSO only) 

PDSI output is too large for the available buffer. 
(TSO only) 

444 Invalid shared variable value 


weenas 


——— | 


AP 101—Alternative-Input (Stack) Processor 
Shared Variables: Reg. = 1. 

Initial Values: 

SHR101+'([FIFOILIFO)' 


Fence Requests (TSO) 

SHR101+1 Set or move the fence. 
SHR101«2 Purge the stack up to the fence. 
SHR101«0 Purge the entire stack. 

Return Codes: 

0 — Noerror 


1 Invalid initial value 
12 Stack overflow (TSO) 
444 Invalid shared variable value 
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AP 102—M. 


Storage Access Processor 


Shared Variables: Reg.=2. 
AP 102 Service Requests: 
CTL102«0 

Obtain address of active workspace. 
CTL102+1 address length 

Obtain contents of length bytes from address. 
Protocol: CTL and DAT 


0 — Noemor 

2 NoDAT variable offered 

3 — Invalid service request 

4 — Invalid number of parameters on service request. 
S — Invalid C72 variable value 

6 Invalid address specified in C71 variable 

7 — Invalid length specified in CTL variable 

8 Insufficient storage 


AP 110—CMS File Processor 


Shared Variables: Reg.m1 or 2. 

Initial Values: 

REC110+' fikidll PIX] [VIRIW] Ceomersion)" 
CTLiio-'fieid (CTL! 

The conversion can be: APL, BCD, BIT, BYTE. 
CDR, COD1, DBCS, EBCD, VAR, 370.01192 


Return Codes: 

o No error 

1 File nonexistent or improper initial value 

3 — Permanent 1/0 error. 

4 First character of filemode invalid 

S Attempt to read too many records 

6 Attempt to write too many records 

? Attempt to write past end of file 

8 Attempt to read record of incorrect length. 

10 Attempt to create too many files 

12 — End-of-file read or read-only disk 

13 Attempt of write on a full disk 

14 — Attempt to write on an unformatted disk. 

15 Attempt to write record of incorrect length to a 
fixed-length file 

17 Record too large for output 

19 Attempt to write in a full CMS file 

22 — Virtual storage exceeded 

25 Insufticiem storage 

26 — Item number invalid 

27 — Attempt to replace variable-length item with one of 
different length 

443 Insufficient free storage 

444 invalid shared variable value 

445 Insufficient shared memory for input 
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AP 111—QSAM File Processor 


‘Shared Variables: Req 1 or 2. 

Initial Values: 

CMS: REC111+" ddname (conversion ]* 

TSO: HEC111+" ddnome ([UIRIW] [conversion * 
‘The comersion can be: APL, BIT, BYTE, COR, 
CODi, DBCS, BBCD {or 192), TW (TSO only). 
VAR, 0t 370 (or BC). 


Return Codes: 

0 — Noemor 

1 — Bad initial value or nonexistent file 
12. End of fle 

15 — Incorrect-length record on fixed-length output 
17 — Record too large for output 

440 Error when opening file for output 
44V Error when opening file foe input 
443 Insufficient space to process input 
444 Invalid shared variable value 

445 _ Insufficient shared memory for input 


AP 120—Session Manager Command 
Processor 


Shared Variables: Reg.=2. 
Initia! Valves: None. 

Protocol: CTL and DAT. 

CTLs session manager command 


Return Codes: 

00 Noerror 

111 Rank of control variable >1 

113 Control variable contains noncharacter data 
153 Required storage unavailable 

156 Shared variable quota exceeded 

160 Session manager not available. 

4 nnn Error when command passed to session manager 


AP 121—APL2 Data File Processor 


Shared Variables: Req.=2. 
Initial Values: None. 
Protocol: TL and DAT 


AP 121 Service Requests 


Service Request Operation 

^C filed S" Create a seq. file 

^C filed D" Create a direct file 
Open for seq. write 

“SWC fed Length 3! APL2-only 

"SW fileid Clength ) VS APL-compatible 

“sR filed” Open for seq. read 

‘DR filed" Open for direct read 
Open for direct update 

"DUC feid’ APL2-only 

*DU filed" VS APL-compatible 

0 preen Direct read 

1 reen Direct write 

sor so Close a file 

ID fied Drop a file 

TES fileid site’ Change fe size lenit 
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AP 121 Rerum Codes: 
No error 

1 Record not found 

2 — File contains maximum records 

3 — Attempt to write an invalid object 

4 Invalid object read 

$ — Endoffüe 

6 — Conflict between file type and access 

7 Record length error 

9 Virtual disk or VSAM library fol 

$1 Defined file size limit exceeded 

12 — Invalid service request 

23 — File must be opened for direct update 

24 Improper library reference 

15 File already exists 

26 — File does not exist 

28 — File in use by others 

30 File protected from this operation 

31 Maximum number of fües open 

32 No space for I/O buffer 

33 Data variable not specified before write request 

34 — Incorrect or missing password 

35 — Hardware error or APL2 product failure. 

36 — Named fike is noi an APL? data file 

37 File size limit reduced below previous limit 

38 — lovalid record length on sequential write request 

39 — Required record length not specified 

42 Data variable not referenced 

50 — Invalid request for this subsystem 


AP 123—VSAM File Processor 


‘Shared Variables: Req.=2. 
Initial Values: None. 
Protocol: C7L and DAT. 


AP 123 Service Requests 


Service Request Operation 

*OR ddnamel :pswrd ]' Open file for read 

‘ow ddmamel:pswrd ]' Open file for write 

*QU ddnamel :pswrd )' Open file for update 

*OC ddmamel:pserd )' Open and clear reusable file 

ew Sequential read 

"RU" Sequential read for update 

Direct read 

Direct read for update 

Write a record 

Write new record (relative 

record) 

+E:kot Erase a record (key 
sequenced or relative) 

*POL chey)" Position record pointer 

Key feedback 

Close file 

Transfer data without 

translation (default) 

"nt Translate to or from VS APL 

T2 Translate to or from EBCDIC 


1$ 


AP 123 Return Codes: 
112. Symtax error in request 

113 VSAM file already open 

115 Inappropriate VSAM open mode 

116 Invalid service request 

117 Key length error 

118 VSAM MODCB error 

L19 VSAM SHOWCB error 

120 Character vector required in data variable 
121 Record length error in data variable 

122 VSAM file not open 

127 VSAM TESTCB error 

132 Insufficient free storage for 1/0 buffers 
133 — No value assigned to data variable for write 
142 Data variable not used yet 

145 VSAM GENCB error 

148 Invalid sequence of service requests 


Selected VSAM Return Codes: 

03 — More than one record has the specified key. 

4116 File not properly closed after the last usage. 

84 End of file, or specified key greater than highest 
key. 

88 — Duplicate key. 

816 Record not found. 

$20 Record is being used by another user. 

828 Data set is ful. 

832 Invalid relative byte address. 

840 Insufficient virtual storage. 

888 Sequential read without prior positioning. 

896 — Attempt to change key of record, 

8100 Attempt to change length of record on an entry 
sequenced or relative-record data set. 

8 110 Attempt to open an empty fie for read or update 

8128 Attempt to open file not been properly allocated. 

8136 Insufficient virtual storage. 

8152 Password error. 

168 Data set is in use by another job. 


8192 Invalid relative record number. 


AP 126—GDDM Processor 


‘Shared Variables: Req 2. 
Initial Values: None. 
Protocol: CTL and AT. 


AP 126 Service Request Codes 


Code — Service Request 
“1 Query GDDM calls 
2 — Set error threshold 
3 Set protection key 
s Set EBCDIC translation 
5 Set defauk buffer size 
76 Set AP 126 options 
7 Query AP 126 options 
8 —— Query subset of fields for modification 
9 Query current hardcopy destination 
10 Issue GDDM CHART Call 
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AP 126 Retura Codes: 
90 — Noemor 
17 — Incorrect data variable length 
111 repsere 
112 Syntax error in request 
113 — Character string specified in control variable 
114 — Invalid request code specified in control variable 
121 1<ppDAT 
123 — Numeri data specified in data variable 
141 — Date variable not specified 
153 — Required storage not available 
156 Insufficient space in shared variable quota 
160 — GDDM pot available 

Invalid service request parameter 
Invalid count, code, or length value on request 
Hardcopy translate table not available 
Reserved page id has been requested 
Invalid hardcopy destination 
Hardcopy destination not available 
Hardcopy destination already open 
GDDM return code nn, severity ss 
Warning; amn is GDDM return code 
Error; nan is GDDM return code 
Severe error; nnn is GDDM return code 
Abend; nnn is GDDM return code 


AP 127—SQL Processor 


AP 127 allows you to use the Structured Query Language (SQL) 
‘on IBM DATA BASE 2 or SQL/DS. The SQL workspace is 
designed for use with AP 127 


AP 127 Operations DAT="CALL' name values J 
Execules name and corresponding values. 
DATe'CLOSE' name 

Closes cursor statement name. 

DAT=" COMMIT" 

Makes all changes since last rollback or commit 
permanent. 
DAT-'EXEC statement 

Immediately executes statement. 
DAT**FETCH* name Coptions 1 

Returns new result table data, 
DAT«'CEfUPT* 

Returas values of AP 127 options. 
DAT="¥SC" rode 

Returns error message lert. 
DAT NAMES! 

Returns names of statements known to AP 127. 
DAT- OPEN? name values 1 

Opens previously prepared cursor statement name 
DAT-!PREP name statement 

Prepares name for later execution. 
DAT-'PURGE* name 

Removes name from list of active AP 127 names. 
DAT ROLLBACK" 

Discards all changes made since last rollback or commit. 
DATe'SETOPT' options 

Sets values of AP 127 options. 
DAT+"STATE* name 

Ylekis current state of name, 
DAT« STMT! name 

Yields statement name, 
DAT=" TRACE! nin? 

‘Yields an event trace of functions within AP 127. 
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Return Codes: 
00000 Normal retum 

010nn — Warning message 

100m7 Eror 

1100 — Transaction backout 

90100 — Normalretum, but may be more data. 


AP 210—BDAM 


Shared Variables: Reg.=2. 
Initia) Values: 
REC210*'ddmame( LFMT] LUIRIW] Lcomwrnon]* 


CTL210«'ddname (CTL 
The conversion can be: 370 (or BCD), BIT, BYTE. 
CDR, COD, DBCS, BBCD (or 192), PH, or VAR 


ila Processor for TSO 


Return Codes: 

-nn File too small to contain records requested 
0 — Noemor 

1 Invalid initial value 

12 Endoffüe 

15 — Wrong-length record on fixed-length output 
17 — Record too large 

30 — Record not found 

440 Error in open for output 

441 Error in open for input 

443 Shared variable exceeds 32760 bytes 

444 Invalid shared variable value 

445 Insufficient shared storage for input data 
901 V/O error in reading data 
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